In this section, our analysis concentrates on examining the correlation between health expenditure as a percentage of GDP and overall life expectancy at birth to understand if higher healthcare investment translates into longer life spans. On the other hand, a specific focus also will be placed on exploring a comparative analysis of a select group of representative OECD countries, focusing on how their health expenditure influences child mortality rates under the age of 5, this comparative study aims to uncover regional differences and insights into how distinct health system structures and spending levels impact crucial health outcomes, specifically in child health.
# Plotting the relationship between health expenditure and life expectation for each year
ggplot(df, aes(x = HealthExp_percent_GDP, y = LifeExp_Total)) +
geom_point() +
geom_smooth(method = "lm", se = FALSE, color = "blue") + # Adds a linear regression line
labs(title = "Health Expenditure vs Life Expectation in OECD Countries",
x = "Health Expenditure as % of GDP",
y = "Life Expectation at Birth") +
theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'
Figure 1: Health Expenditure vs Life Expectation at Birth in OECD Countries
representative_countries <- c("USA", "CAN", "GBR", "DEU", "SWE",
"NZL", "MEX", "JPN", "KOR", "AUS")
# Filter the dataset
filtered_data <- df %>%
filter(Country_Code %in% representative_countries)
# Plot the relationship between health expenditure and mortality rate in representative countries
p <- ggplot(filtered_data, aes(x = HealthExp_percent_GDP, y = Mortality_U5_Total, text = Country_Name)) +
geom_line(aes(color = Country_Name)) +
labs(title = "Health Expenditure vs Mortality Rate in representative countries of OECD",
x = "Health Expenditure",
y = "Mortality Rate Under 5") +
theme_minimal()
interactive_plot <- ggplotly(p, tooltip = c("text", "x", "y"))
interactive_plot
Figure 2: Health Expenditure vs Mortality Rate in representative countries of OECD
# Calculate summary statistics
summary_stats <- filtered_data %>%
group_by(Country_Name) %>%
summarise(across(c(HealthExp_percent_GDP, Mortality_U5_Total, LifeExp_Total),
list(mean = ~ mean(., na.rm = TRUE), var = ~ var(., na.rm = TRUE))))
# Make column name shorter and meaningful
colnames(summary_stats) <- c("Country", "Mean_HealthExp", "Var_HealthExp",
"Mean_MortU5", "Var_MortU5", "Mean_LifeExp", "Var_LifeExp")
# Display the table
kable(summary_stats, caption = "Summary Statistics of Health Expenditure and Health Indicators in Selected Countries", format = "html") %>%
kable_styling(full_width = TRUE)
| Country | Mean_HealthExp | Var_HealthExp | Mean_MortU5 | Var_MortU5 | Mean_LifeExp | Var_LifeExp |
|---|---|---|---|---|---|---|
| Australia | 8.835345 | 1.0433705 | 4.828571 | 0.8391429 | 81.52056 | 1.2516815 |
| Canada | 10.077522 | 1.2059462 | 5.719048 | 0.1476190 | 80.95753 | 0.9415795 |
| Germany | 10.811329 | 0.5179457 | 4.342857 | 0.2835714 | 79.86249 | 1.2120146 |
| Japan | 9.186331 | 2.4167287 | 3.280952 | 0.3966190 | 82.89201 | 1.0666114 |
| Korea, Rep. | 5.841171 | 1.7191164 | 4.614286 | 2.0182857 | 80.00546 | 5.5113420 |
| Mexico | 5.585032 | 0.1675555 | 19.800000 | 19.3180000 | 74.07862 | 0.8985976 |
| New Zealand | 8.863087 | 0.6149196 | 6.095238 | 0.5914762 | 80.64070 | 1.3572151 |
| Sweden | 9.427667 | 2.0443653 | 3.219048 | 0.2436190 | 81.36376 | 1.0511929 |
| United Kingdom | 9.208468 | 1.2574710 | 5.266667 | 0.6413333 | 79.97224 | 1.5290854 |
| United States | 15.575834 | 2.0455827 | 7.361905 | 0.4604762 | 78.00999 | 0.5841826 |
# Correlation between Health Expenditure, Mortality under 5 and Life Expectancy at birth
correlation_stats <- filtered_data %>%
group_by(Country_Name) %>%
summarise(
Cor_Heal_Mort = cor(HealthExp_percent_GDP, Mortality_U5_Total, use = "complete.obs"),
Cor_Heal_Life = cor(HealthExp_percent_GDP, LifeExp_Total, use = "complete.obs")
)
kable(correlation_stats, caption = "Correlation between Health Expenditure, Mortality under 5 and Life Expectancy", format = "html") %>%
kable_styling(full_width = TRUE)
| Country_Name | Cor_Heal_Mort | Cor_Heal_Life |
|---|---|---|
| Australia | -0.9272202 | 0.8888673 |
| Canada | -0.9059984 | 0.8609486 |
| Germany | -0.8533175 | 0.8124925 |
| Japan | -0.9345406 | 0.9074473 |
| Korea, Rep. | -0.9221641 | 0.9741415 |
| Mexico | -0.4719754 | -0.1723541 |
| New Zealand | -0.7808487 | 0.8992428 |
| Sweden | -0.8681373 | 0.9005585 |
| United Kingdom | -0.8626432 | 0.8163209 |
| United States | -0.9287438 | 0.6117293 |
-Figure 1 illustrates a discernible positive relationship between health expenditure as a percentage of GDP and life expectancy at birth in OECD countries. This trend implies a potential association between greater health care investment and improved health outcomes, as evidenced by increased life expectancy.
-Figure 2 presents data from ten representative OECD countries, carefully selected to encompass a variety of healthcare systems, including universal healthcare, insurance-based, and mixed systems. The selection also includes countries that have undergone significant health reforms, such as Mexico and South Korea, and those with notable demographic characteristics, like Japan’s large population and aging society. This figure illustrates the relationship between health expenditure and infant mortality rates in these countries. A general trend is observed where higher health expenditure correlates with lower infant mortality rates, indicating a significant negative correlation and highlighting the impact of financial investment on health outcomes. Notably, the USA stands out with its higher level of health expenditure compared to other countries. However, Mexico deviates from this general trend, exhibiting a fluctuating relationship and a higher infant mortality rate than might be expected given its health expenditure level. This anomaly suggests that factors other than expenditure, such as efficiency of healthcare delivery or socio-economic conditions, may also play a critical role in determining health outcomes.
-Table 1 summarizes the mean and variance of health expenditure and key health indicators, offering a clear quantitative perspective. For instance, Canada demonstrates a high mean value for health expenditure with lower variance, indicating a consistent approach to healthcare spending. Conversely, countries like Mexico and Korea exhibit higher variance in health expenditure, warranting further investigation into the underlying causes of these fluctuations.
-Table 2 reveals a general trend where health expenditure in most countries has a strong negative correlation with the mortality rate under 5 years and a positive correlation with life expectancy. However, there are notable exceptions. The United States, for example, despite its high health expenditure, shows a relatively lower positive correlation (0.6117293) with life expectancy. This suggests that increased spending does not correspond with a proportionate increase in life expectancy, possibly reflecting inefficiencies or other influencing factors. Mexico presents a distinct case, displaying a much weaker negative correlation with life expectancy (-0.1723541) and a less pronounced relationship between health expenditure and the reduction of mortality under 5 years. These anomalies in the Mexican context point towards potential systemic issues in healthcare delivery or socio-economic factors impacting health outcomes.
Phebe A Owusu, Samuel A Sarkodie(2021).Relationship between mortality and health care expenditure:Sustainable assessment of healthcare system. https://doi.org/10.1371/journal.pone.0247413.